home *** CD-ROM | disk | FTP | other *** search
/ Inside Indy 1993 / Inside Indy 1993.iso / demos / CHEM / ribbon / bin / iribbon < prev    next >
Encoding:
Text File  |  1993-06-23  |  472 b   |  30 lines
  1. #!/bin/csh
  2.  
  3. set CurDir = `pwd`
  4.  
  5. set RibDir = /usr/Basel_1/people/michael/RIBBONS
  6. cd $RibDir/data
  7.  
  8. set images = `ls *.rgb`
  9.  
  10. echo "\n  iribbon  ---   available ribbon images are: "
  11. foreach i ( $images )
  12.     set i = $i:r
  13.     echo "    " $i
  14.     end
  15.  
  16. View:
  17.     echo "\n enter image to view ('q' to quit): "
  18.     set file = $<
  19.     if( $file == "q" )  goto Quit
  20.     if( ! -e $file.rgb ) then
  21.         echo " file does not exist?  $file"
  22.         goto View
  23.     endif
  24.     ipaste $file.rgb
  25.     sleep 5
  26. goto View
  27.  
  28. Quit:
  29. cd $CurDir
  30.